par(mfrow=c(3, 2))

data1_4<-read.csv("data/时间序列分析——基于R（第2版）案例数据/csv/A1_4.csv")
plot(ts(data1_4$percent), type="o", pch=5, col='#39CBB4', main="时序图", xlab="year", ylab="percent")

acf(ts(data1_4$percent), lag.max=30)

data1_5<-read.csv("data/时间序列分析——基于R（第2版）案例数据/csv/A1_5.csv")
plot(ts(data1_5$rain), type="o", pch=5, col='#0000FF', main="时序图", xlab="year", ylab="percent")

acf(ts(data1_5$rain), lag.max=30)

data1_6<-read.csv("data/时间序列分析——基于R（第2版）案例数据/csv/A1_6.csv")
plot(ts(data1_6$Suicide), type="o", pch=5, col='#C5060B', main="时序图", xlab="year", ylab="percent")

acf(ts(data1_6$Suicide), lag.max=30)

